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init: 

X var word 
tflag var bit 
relay var bit 
solenoid var bit 
switch var bit 
tflag=0 
relay=0 
swifch=0 
solenoid=0 
input 12 
input 14 
input 15 
output 4 
outout 1 
output 2 
output 3 
output 5 
output 6 
output 7 
output 8 
output 9 
output 10 
output 11 
output 13 
outl=0 
out2=0 
out3=0 
out4=0 
out5=0 
out6=0 
out7=0 
out8=l 
out9=0 
outlO=l 
outll=0 
outl3=0 
start: 

if iflI5=l then init reset ID sys, 
ifiDi4-lthencheGkt 
checkl: 
iffelaod 
dheei " 
iiiiil^.u.. 
check3: 



if in 12=1 and solenoid=l and tflag=b:then slowdown 
check4: go to start 



checkt: 
for x=l to 35 
pause 100 

if in 14=0 then nogo 

next 
goto go 
nogo: 

goto checkl 

^ag=l ,. . „ 
debug "go condition ,cn 
goto checkl 

noactivity: 

debug "Beeper is hiaclive",cr 
return 

relayc: 

debug "relay control 
debug ? relay 
if relay=0 then first 
if relay=l then second 
first: 

debug "first" 
out4ll 
out2=l 

out3=Pause 2,300 RSout4=0 
relay=l 
goto relend 
second: 

debug "second" 
out2t) 
out5=l 
pause 3000 
out5=0 
relay=0 
tflag=0 

holo: if in 14=1 then 
hold 

stuekl: if in 15=0 then 
sttick 1 
goto init 
Helena: 

FIG. 3 



tflag=0 

holll: if in 14=1 then hold I 
goto check 2 

carrun: 

outl=0 

out2=0 

out3=0 

solenoid=i 

goto check 3 

slowdown: 

if switch=0 then fu- 

if switch=l tlien sec 

fir: 

outl=l accelerator diseng. 

siren-flasher 

out8=0 play message 

out9-l amponforplay 

pause 15000 

out8=l off record chip 

out 10=0 resd recorder chip 

pause 1000 

outlO=l reset ready 

pause 21000 

out2=l progressive brake 

application 

switch=l 

goto swend 

sec: 

out3=l energize kill 

out5=l 

pause 3000 

out5=0 

pause 45000 



swit<jh=0 
tflagsO 

hoM: if inl4=l then hold 
3 

stue!^; if in 15=0 then 



getoinil 
swend: 
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